home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / toc.dir / 00197.ls < prev    next >
Encoding:
Text File  |  1997-01-16  |  552 b   |  23 lines
  1. on mouseDown
  2.   puppetSprite(17, 1)
  3.   set the memberNum of sprite 17 to the number of member "W-VICTOR DOWN.PICT"
  4.   updateStage()
  5.   puppetSound("Squishy")
  6. end
  7.  
  8. on mouseUp
  9.   global rootpath
  10.   set the memberNum of sprite 17 to the number of member "W-VICTOR UP.PICT"
  11.   updateStage()
  12.   puppetSprite(17, 1)
  13.   SetReturn()
  14.   delay(60)
  15.   puppetSprite(17, 0)
  16.   unloadMember(member "WATER DOWN.PICT", "Squishy")
  17.   if the machineType = 256 then
  18.     play movie rootpath & "DEMOS\VVICTOR\VVDEMO"
  19.   else
  20.     play movie rootpath & "DEMOS:VVICTOR:VVDEMO"
  21.   end if
  22. end
  23.